home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS03.ADF / ABasiCprogs / dice1.bas < prev    next >
BASIC Source File  |  1986-04-02  |  842b  |  32 lines
  1. 5     rem this is the dice drawing routine only -- lines 0 toi 62
  2. 10    scnclr
  3. 11    common pot
  4. 12    rgb 0,15,15,15
  5. 13    rem:borderoff rgb 1,15,15,15
  6. 14    pena 4
  7. 16    dim blank%(500)
  8. 18    sshape(42,42;99,94),blank%
  9. 20    box(50,50;90,85),1
  10. 22    draw(70,68)
  11. 24    dim d1%(300)
  12. 26    sshape(50,50;91,86),d1%
  13. 28    pena 2
  14. 30    draw(70,68)
  15. 32    draw(70,66 to 72,68 to 70,70 to 68,68 to 70,66)
  16. 34    draw(70,67 to 71,68 to 70,69 to 69,68)
  17. 36    dim spot%(100)
  18. 38    sshape(68,66;73,71),spot%
  19. 40    rem draw(70,40 to 70,95)
  20. 42    rem draw(40,68 to 100,68)
  21. 44    scnclr
  22. 46    pena 4
  23. 48    draw(70,42 to 42,68)
  24. 50    draw(70,42 to 98,68)
  25. 52    draw(to 70,93 to 42,68)
  26. 54    paint(80,60),1
  27. 56    dim d2%(500)
  28. 58    sshape(42,42;99,94),d2%
  29. 60    scnclr
  30. 61    rem THIS IS THE END OF THE           DICE DRAWING ROUTINE
  31. 62    chain "casino",0,all
  32.